home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / lib / 1756.g < prev    next >
Text File  |  1995-05-04  |  4KB  |  132 lines
  1. (game-module "1756"
  2.   (title "Europe 1756")
  3.   (blurb "Central Europe, the beginning of summer, 1756.  Frederick must strike or die.")
  4.   (base-module "friedrich")
  5.   (instructions
  6.    "Each side should attempt to capture as many of the other's fortresses "
  7.    "as possible.  "
  8.    )
  9. )
  10.  
  11. (include "t-cent-eur")
  12.  
  13. ;;; Modify the defaults in friedrich.
  14.  
  15. (add u* start-with 0)
  16.  
  17. ;;; All scenarios include these sides, but only three were active in 1756.
  18.  
  19. (side 1 (name "Prussia") (adjective "Prussian") (emblem-name "arms-prussia"))
  20. (side 2 (name "Hannover") (adjective "Hannoverian") (emblem-name "arms-hannover")
  21.   (active false))
  22. (side 3 (name "Austria") (adjective "Austrian") (emblem-name "arms-austria"))
  23. (side 4 (name "Saxony") (adjective "Saxon") (emblem-name "arms-saxony"))
  24. (side 5 (name "France") (adjective "French") (emblem-name "arms-france")
  25.   (active false))
  26. (side 6 (name "Russia") (adjective "Russian") (emblem-name "arms-russia")
  27.   (active false))
  28. (side 7 (name "Sweden") (adjective "Swedish") (emblem-name "arms-sweden")
  29.   (active false))
  30.  
  31. (set sides-max 7)
  32.  
  33. (town (n "Danzig") (@ 35 35))
  34. (town (n "Hamburg") (@ 12 32))
  35. (town (n "Emden") (@ 8 30))
  36. (town (n "Thorn") (@ 38 29))
  37. (town (n "Bremen") (@ 13 28))
  38. (town (n "Posen") (@ 36 25))
  39. (town (n "Cassel") (@ 18 19))
  40. (town (n "Leipzig") (@ 27 18))
  41. (town (n "Chemnitz") (@ 29 16))
  42. (town (n "Eger") (@ 31 12))
  43. (town (n "Wurzburg") (@ 24 11))
  44. (town (n "Donauworth") (@ 29 6))
  45. (town (n "Regensburg") (@ 32 6))
  46. (town (n "Passau") (@ 36 5))
  47. (town (n "Ulm") (@ 27 4))
  48.  
  49. (fortress 22 23 1 (n "Magdeburg"))
  50. (fortress (n "Berlin") (@ 25 26))
  51. (fortress (n "Stettin") (@ 26 30))
  52. (fortress (n "Kustrin") (@ 30 25))
  53. (fortress 36 21 1 (n "Glogau"))
  54. (fortress (n "Colberg") (@ 29 34))
  55. (fortress (n "Schweidinitz") (@ 39 17) (s 1))
  56. (fortress 40 18 1 (n "Breslau"))
  57. (fortress (n "Glatz") (@ 40 16) (s 1))
  58. (fortress (n "Brieg") (@ 42 17) (s 1))
  59. (fortress (n "Neisse") (@ 43 15) (s 1))
  60. (fortress (n "Munster") (@ 11 23))
  61. (fortress (n "Minden") (@ 14 24))
  62. (fortress (n "Hannover") (@ 17 25))
  63. (fortress (n "Stade") (@ 12 31))
  64. (fortress (n "Prague") (@ 35 12) (s 3))
  65. (fortress (n "Brunn") (@ 44 7) (s 3))
  66. (fortress (n "Olmutz") (@ 46 9) (s 3))
  67. (fortress (n "Vienna") (@ 46 3) (s 3))
  68. (fortress (n "Koniggratz") (@ 40 13) (s 3))
  69. (fortress (n "Nuremberg") (@ 28 9))
  70. (fortress (n "Torgau") (@ 28 19) (s 4))
  71. (fortress (n "Dresden") (@ 31 17) (s 4))
  72. (fortress (n "Metz") (@ 15 8))
  73. (fortress (n "Strasbourg") (@ 20 5))
  74. (fortress (n "Venlo") (@ 7 20))
  75. (fortress (n "Roermond") (@ 9 18))
  76. (fortress (n "Cologne") (@ 12 17))
  77. (fortress (n "Coblenz") (@ 15 14))
  78. (fortress (n "Dusseldorf") (@ 11 19))
  79. (fortress (n "Mainz") (@ 18 12))
  80. (fortress (n "Wesel") (@ 9 22))
  81. (fortress (n "Frankfort") (@ 20 13))
  82. (fortress (n "Konigsberg") (@ 38 38))
  83. (fortress (n "Stralsund") (@ 20 34))
  84.  
  85. (king 22 23 1 (n "Frederick"))
  86. (prince 22 23 1 (n "Ferdinand"))
  87. (general 22 23 1 (n "Keith"))
  88. (army 22 23 1 (hp 18))
  89.  
  90. (marshal 40 18 1 (n "Schwerin"))
  91. (army 40 18 1 (hp 10))
  92.  
  93. (marshal 36 18 1 (n "Brunswick"))
  94. (general 36 18 1 (n "Maurice"))
  95. (army 36 18 1 (hp 6))
  96. (depot 36 18 1)
  97.  
  98. (army 42 17 1 (hp 1))
  99. (army 43 15 1 (hp 1))
  100. (army 40 16 1 (hp 1))
  101. (army 39 17 1 (hp 1))
  102. (army 36 21 1 (hp 1))
  103.  
  104. (marshal 46 9 3 (n "Browne"))
  105. (general 46 9 3 (n "Lascy"))
  106. (army 46 9 3 (hp 12))
  107.  
  108. (marshal 39 12 3 (n "Picolomini"))
  109. (general 39 12 3 (n "Nadasy"))
  110. (army 39 12 3 (hp 9))
  111.  
  112. (marshal 35 12 3 (n "Serbeloni"))
  113. (army 35 12 3 (hp 4))
  114.  
  115. (king 31 17 4 (n "Rutkowski"))
  116. (army 31 17 4 (hp 8))
  117.  
  118. (army 28 19 4 (hp 1))
  119.  
  120. (scorekeeper
  121.   (title "VP")
  122.   (initial 0)
  123.   (do (set (sum point-value)))
  124.   )
  125.  
  126. (set initial-date "Jun 1756")
  127.  
  128. ;;; Game only lasts until the end of the year (armies would
  129. ;;; invariably go into winter quarters from December thru March).
  130.  
  131. (set last-turn 12)
  132.